﻿Imports GestionFicheClient.CnxMySql
Public Class FrmStart

    Private Sub ConsultAjoutSupprToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConsultAjoutSupprToolStripMenuItem.Click
        Dim fiches As New gestionFiches
        fiches.Show()
    End Sub

    Private Sub FrmStart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.WindowState = FormWindowState.Maximized



        Try

            Se_Connecter_MySql("root", "")
        Catch
            MessageBox.Show("Erreur de connexion, veuillez relancer l'application.", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Close()
        End Try
    End Sub
End Class